home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / PROGWOB / PWOIDBUG.CLS < prev    next >
Encoding:
Visual Basic class definition  |  1996-11-26  |  1.2 KB  |  43 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "IDebug"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. ' IDebug interface is implemented by all
  13. ' ======    objects in the project.  It
  14. '   contains debugging methods and
  15. '   properties (in ProgWOb, there's only
  16. '   one of these:  the DebugID property).
  17. '
  18. ' Why have a separate interface?  In this
  19. '   project, the Polygon class is used
  20. '   two ways:  Polygon objects are
  21. '   created, and the Polygon interface
  22. '   is implemented by two other classes.
  23. '   Thus, if we put a DebugID property on
  24. '   Polygon's default interface, we would
  25. '   have to put dummy DebugID properties
  26. '   on those implementations, as well --
  27. '   as was done with the TimeTest method.
  28. '
  29. ' Having a separate interface requires
  30. '   only one more line of code (the
  31. '   Implements IDebug statement) than
  32. '   putting DebugID on each class's
  33. '   default interface.
  34. '
  35. '
  36. ' DebugID is implemented by providing a
  37. ' -------       Long to store the debug
  38. '   ID, and calling DebugInit to set
  39. '   the ID (in the Initialize event).
  40. '
  41. Public Property Get DebugID() As Long
  42. End Property
  43.